home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HamCall (October 1991)
/
HamCall (Whitehall Publishing)(1991).bin
/
bcast
/
bcstcble
/
detune.asc
< prev
next >
Wrap
Text File
|
1990-10-14
|
1KB
|
28 lines
10 CLS
20 PRINT"[DETUNE] COPYRIGHT @1985 BY TOM OSENKOWSKY (203)775-3060
30 PRINT "THIS PROGRAM DEFINES DESIRED POINT OF MINIMUM CURRENT";
40 PRINT "ON A TOWER WHICH IS TO BE DETUNED. TOWER IS PROPERLY DETUNED BY";
50 PRINT"PLACING AN F.I.M. OR CURRENT SAMPLE LOOP AT THE SPECIFIED LOCATION";
60 PRINT"AND ADJUSTING SERIES REACTIVE COMPONENT AT TOWER BASE FOR Imin."
70 PRINT
80 RD=3.14159265#/180
90 INPUT "TOP LOAD (DEGREES)";D
100 INPUT "TOWER HIEGHT (DEGREES)";B
110 E=B+D
120 C1=COS(E*RD)-SIN(E*RD)*SIN(B*RD)-COS(E*RD)*COS(B*RD)
130 C2=COS(E*RD)*SIN(B*RD)-SIN(E*RD)*COS(B*RD)+SIN(E*RD)-B*RD
140 C=ATN(C1/C2)/RD
150 F=B+D+2*C-180
160 U=F/B
170 PRINT"MINIMUM CURRENT POINT FROM TOWER BASE";U
180 G=U*B
190 PRINT"DEGREES UP FROM TOWER BASE FOR MINIMUM CURRENT";G
200 PRINT
210 INPUT"CARRIER FREQUENCY (KHZ) FOR FOOTAGE CALCULATION";Q
220 Q=Q/1000
230 V=2.734*G/Q
240 PRINT"FEET FROM TOWER BASE TO MINIMUM CURRENT POINT";V
300 REM FROM TBS/AV SYNC BBS BY PERMISSION
310 REM CALL 404/320-6202
320 REM BILL TULLIS IS SYSOP